home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue62 / outlook / Weblook / HTMLTemplates.pas next >
Encoding:
Pascal/Delphi Source File  |  2000-08-06  |  6.7 KB  |  125 lines
  1. unit HTMLTemplates;
  2.  
  3. interface
  4.  
  5. Const
  6.   CRLF             = #13#10;
  7.   cstrCalendarHTML = '<HTML>'+CRLF+
  8.                      '<HEAD>'+CRLF+
  9.                      '<TITLE>Weblook</TITLE>'+CRLF+
  10.                      '<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso-8859-1">'+CRLF+
  11.                      '</HEAD>'+CRLF+
  12.                      ''+CRLF+
  13.                      '<BODY BGCOLOR="#FFFFFF">'+CRLF+
  14.                      '<P><B><FONT FACE="Arial, Helvetica, sans-serif" SIZE="4">Calendar</FONT></B></P>'+CRLF+
  15.                      '<P><FONT FACE="Arial, Helvetica, sans-serif" SIZE="2">Current month: %month%<BR>'+CRLF+
  16.                      '%prev% | %next% | %current%</FONT></P>'+CRLF+
  17.                      '<TABLE WIDTH="760" BORDER="1">'+CRLF+
  18.                      '  <TR BGCOLOR="#CCCCCC">'+CRLF+
  19.                      '    <TD WIDTH="102">'+CRLF+
  20.                      '      <DIV ALIGN="CENTER"><B><FONT FACE="Arial, Helvetica, sans-serif" SIZE="2">Monday</FONT></B></DIV>'+CRLF+
  21.                      '    </TD>'+CRLF+
  22.                      '    <TD WIDTH="102">'+CRLF+
  23.                      '      <DIV ALIGN="CENTER"><B><FONT FACE="Arial, Helvetica, sans-serif" SIZE="2">Tuesday</FONT></B></DIV>'+CRLF+
  24.                      '    </TD>'+CRLF+
  25.                      '    <TD WIDTH="102">'+CRLF+
  26.                      '      <DIV ALIGN="CENTER"><B><FONT FACE="Arial, Helvetica, sans-serif" SIZE="2">Wednesday</FONT></B></DIV>'+CRLF+
  27.                      '    </TD>'+CRLF+
  28.                      '    <TD WIDTH="102">'+CRLF+
  29.                      '      <DIV ALIGN="CENTER"><B><FONT FACE="Arial, Helvetica, sans-serif" SIZE="2">Thursday</FONT></B></DIV>'+CRLF+
  30.                      '    </TD>'+CRLF+
  31.                      '    <TD WIDTH="102">'+CRLF+
  32.                      '      <DIV ALIGN="CENTER"><B><FONT FACE="Arial, Helvetica, sans-serif" SIZE="2">Friday</FONT></B></DIV>'+CRLF+
  33.                      '    </TD>'+CRLF+
  34.                      '    <TD WIDTH="102">'+CRLF+
  35.                      '      <DIV ALIGN="CENTER"><B><FONT FACE="Arial, Helvetica, sans-serif" SIZE="2">Saturday</FONT></B></DIV>'+CRLF+
  36.                      '    </TD>'+CRLF+
  37.                      '    <TD WIDTH="102">'+CRLF+
  38.                      '      <DIV ALIGN="CENTER"><B><FONT FACE="Arial, Helvetica, sans-serif" SIZE="2">Sunday</FONT></B></DIV>'+CRLF+
  39.                      '    </TD>'+CRLF+
  40.                      '  </TR>'+CRLF+
  41.                      '%rows%'+CRLF+
  42.                      '</TABLE>'+CRLF+
  43.                      '<P> </P>'+CRLF+
  44.                      '</BODY>'+CRLF+
  45.                      '</HTML>'+CRLF;
  46.   cstrContactsHTML = '<HTML>'+CRLF+
  47.                      '<HEAD>'+CRLF+
  48.                      '<TITLE>Weblook</TITLE>'+CRLF+
  49.                      '<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso-8859-1">'+CRLF+
  50.                      '</HEAD>'+CRLF+
  51.                      ''+CRLF+
  52.                      '<BODY BGCOLOR="#FFFFFF">'+CRLF+
  53.                      '<P><B><FONT FACE="Arial, Helvetica, sans-serif" SIZE="4">Contacts</FONT></B></P>'+CRLF+
  54.                      '<TABLE WIDTH="500" BORDER="0">'+CRLF+
  55.                      '%rows%'+CRLF+
  56.                      '</TABLE>'+CRLF+
  57.                      '<P> </P>'+CRLF+
  58.                      '</BODY>'+CRLF+
  59.                      '</HTML>'+CRLF;
  60.   cstrTasksHTML    = '<HTML>'+CRLF+
  61.                      '<HEAD>'+CRLF+
  62.                      '<TITLE>Weblook</TITLE>'+CRLF+
  63.                      '<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso-8859-1">'+CRLF+
  64.                      '</HEAD>'+CRLF+
  65.                      ''+CRLF+
  66.                      '<BODY BGCOLOR="#FFFFFF">'+CRLF+
  67.                      '<P><B><FONT FACE="Arial, Helvetica, sans-serif" SIZE="4">Tasks</FONT></B></P>'+CRLF+
  68.                      '<TABLE WIDTH="500" BORDER="0">'+CRLF+
  69.                      '%rows%'+CRLF+
  70.                      '</TABLE>'+CRLF+
  71.                      '<P> </P>'+CRLF+
  72.                      '</BODY>'+CRLF+
  73.                      '</HTML>'+CRLF;
  74.   cstrNotesHTML    = '<HTML>'+CRLF+
  75.                      '<HEAD>'+CRLF+
  76.                      '<TITLE>Weblook</TITLE>'+CRLF+
  77.                      '<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso-8859-1">'+CRLF+
  78.                      '</HEAD>'+CRLF+
  79.                      ''+CRLF+
  80.                      '<BODY BGCOLOR="#FFFFFF">'+CRLF+
  81.                      '<P><B><FONT FACE="Arial, Helvetica, sans-serif" SIZE="4">Notes</FONT></B></P>'+CRLF+
  82.                      '<TABLE WIDTH="500" BORDER="0">'+CRLF+
  83.                      '%rows%'+CRLF+
  84.                      '</TABLE>'+CRLF+
  85.                      '<P> </P>'+CRLF+
  86.                      '</BODY>'+CRLF+
  87.                      '</HTML>'+CRLF;
  88.   cstrInboxHTML    = '<HTML>'+CRLF+
  89.                      '<HEAD>'+CRLF+
  90.                      '<TITLE>Weblook</TITLE>'+CRLF+
  91.                      '<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso-8859-1">'+CRLF+
  92.                      '</HEAD>'+CRLF+
  93.                      ''+CRLF+
  94.                      '<BODY BGCOLOR="#FFFFFF">'+CRLF+
  95.                      '<P><B><FONT FACE="Arial, Helvetica, sans-serif" SIZE="4">Inbox</FONT></B></P>'+CRLF+
  96.                      '<TABLE WIDTH="500" BORDER="0">'+CRLF+
  97.                      '%rows%'+CRLF+
  98.                      '</TABLE>'+CRLF+
  99.                      '<P> </P>'+CRLF+
  100.                      '</BODY>'+CRLF+
  101.                      '</HTML>'+CRLF;
  102.   cstrTodayHTML    = '<HTML>'+CRLF+
  103.                      '<HEAD>'+CRLF+
  104.                      '<TITLE>Weblook</TITLE>'+CRLF+
  105.                      '<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso-8859-1">'+CRLF+
  106.                      '</HEAD>'+CRLF+
  107.                      ''+CRLF+
  108.                      '<BODY BGCOLOR="#FFFFFF">'+CRLF+
  109.                      '<P><B><FONT FACE="Arial, Helvetica, sans-serif" SIZE="4">Weblook Today</FONT></B></P>'+CRLF+
  110.                      '<P><FONT FACE="Times New Roman, Times, serif" SIZE="2"><B><FONT FACE="Arial, Helvetica, sans-serif">%date%</FONT></B></FONT></P>'+CRLF+
  111.                      '<P><FONT FACE="Arial, Helvetica, sans-serif" SIZE="2">Messages in <A HREF="/scripts/weblook.dll/inbox" TARGET="content">Inbox</A>:'+CRLF+
  112.                      '  %inbox%<BR>'+CRLF+
  113.                      '  <A HREF="/scripts/weblook.dll/calendar" TARGET="content">Calendar</A> events'+CRLF+
  114.                      '  today: %caltoday%<BR>'+CRLF+
  115.                      '  <A HREF="/scripts/weblook.dll/calendar" TARGET="content">Calendar</A> events'+CRLF+
  116.                      '  tomorrow %caltomorrow%<BR>'+CRLF+
  117.                      '  </FONT></P>'+CRLF+
  118.                      '<P> </P>'+CRLF+
  119.                      '</BODY>'+CRLF+
  120.                      '</HTML>'+CRLF;
  121.  
  122. implementation
  123.  
  124. end.
  125.